home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler1.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  11.9 KB  |  22 lines  |  [TEXT/.Ob4]
  1. ¯6
  3. ˇ®†[”6—EKepler1ÇP0∑äG1Œpfl¨Í¥(“EEKÊp≈¶ùÒ“ÉChangeFontŒChangeAlignGChangeAttrLine1NewRectangleENewLineENewCircle¥NewAttrLineÍNewEllipseNewHShape“NewH90Shape(NewTextureÊNewStringKNewTriangleÑÖ6–çÜKeplerGraphs<ÒÇKeplerPorts6e∏uFiles;‚ÜDisplay;‚WêFonts6– µKeplerFrames"…}nMath2ˆÊÃOberon2ˆßæTexts;ı‰ƒViewers2˘úfInܡˇ˜÷˜¿¯ ¯ ˜Ê ˜‚˙ß
  4. ˝†    
  5. ˝t    ˝I    ˝\ ˝"¯µ˝¯§ˇ˚ñ˚á˚mˇ=˚Rˇ˚K˚,ˇ>˙ˇ˙Èˇ?˙‘ˇ˙Õˇ;˘zá@?
  6. í?I€?
  7. íA@?@@?…€??C0C0ÄC0àøaˇÏî!ˇ∞;·8;√;§;Ö;f|ûË@‰≥‹≥ªC‡ ≥º≥€Ä!ªaˇÏO‡ |¶ø°ˇÙêî!ˇ∞;·8êA;√;§ ûÄ~ É®c ûÄû Ñ®Ñ8ø8flKˇˇu ûÄ~ É®c ûÄû Ñ®Ñ8ø8flKˇˇI8}®ü®ø®fl®ˇ|Δ8©©?|ËH99 ÅCˇ¸Ä
  8. ˇ||    ¶ÄJˇÄO‡!ÄAÄ Ä!|¶ª°ˇÙO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Åbˇ¿©ã / A¯pÄbˇ‰ÄBˇ®HÄA;√ û8`∞~ û8~ÄBˇ¿HÄA û8~ÄBˇ¿Kˇ˛ïÄAÄǡ¿Äd8ûÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø°ˇÙêî!ˇ∞;·8êA;√;§ ûÄ~ É®c ûÄû Ñ®Ñ8ø8flKˇ˝˘ ûÄ~ É®c ûÄû Ñ®Ñ8ø8flKˇ˝Õ8}®ü®ø®fl®ˇ|Δ8©©?|ËH9 û©>9@Åcˇ¸Ä ˇ\|    ¶ÄKˇ`O‡!ÄAÄ Ä!|¶ª°ˇÙO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ù û®æÄBˇ¥HÄA8~8ú8ΩÅǡ¨ÄÃˇÙġ§|    ¶ÄFˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∞;·8êA;√;Ñ;•8|8ù8øÄBˇ¥HÄA ûġ∞˛8~8ú8ΩÅˇ¨Å(ˇÙÄ    ˇ¨|    ¶ÄIˇ∞O‡!ÄAÄ Ä!|¶ªÅˇO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿ÅBˇ¿©j /ãA¸®ÄBˇ‘HÄA8ÄBˇ‘HÄAÅǡ‘àl,ÉAÊ|Äbˇ‹ÄBˇ®Kˇ˛πÄA;√ û8Ä∞û û®ø∞æ û8~ÄBˇ¿Kˇ˛ÅÄA û8~ÄBˇ¿Kˇ˚ŸÄAĬˇ¿Äf8ûÄ„ˇ¸Äˇî|    ¶ÄGˇòO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø°ˇÙêî!ˇ∏;·8êA;√;§8} ûÄû Ñ®Ñ ûÄæ Ö®• ûÄfi Ü®Δ ûIJ á®Á99 ÅCˇ¸Ä
  9. ˇÑ|    ¶ÄJˇàO‡!ÄAÄÄ!|¶ª°ˇÙO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Åbˇ¿©ã / A¯pÄbˇËÄBˇ®Kˇ¸    ÄA;√ û8`∞~ û8~ÄBˇ¿Kˇ˚≈ÄA û8~ÄBˇ¿Kˇ˙ïÄAÄǡ¿Äd8ûÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶øAˇËêî!ˇ†;·8êA;√;§ ûÄfi Ü ûIJ á©©&àH ûÅ^ ä ûÅ~ ã©ã®jl|ú·÷|ªŸ÷|ƒ*l«Äê‚ˇ§»"ˇ†»Bˇò¸!(ÄBˇƒHÄA¸`éˇ¿Lˇ‡L»Çˇê¸§*ÿ¢¸é´B8} ûÄû Ñ®Ñ ûÄæ Ö®•8⁄8‡9Å#ˇ¸Ä    ˇî|    ¶ÄIˇòO‡!ÄAÄ0Ä!|¶ªAˇËO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿ÅBˇ¿©j /ãA¸pÄbˇ¯ÄBˇ®Kˇ˙πÄA;√ û9ıû û8~ÄBˇ¿Kˇ˙ÅÄA û8~ÄBˇ¿Kˇ¯ŸÄAÄbˇ¿Äc8ûÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶øaˇÏêî!ˇ†;·8êA;√;§ ûÄfi Ü ûIJ á©©&àH ûÅ^ ä ûÅ~ ã©ã®jl8||ú–8ø8flKˇ¯
  10. 8{|õ–8ø8flKˇ˜˘8} ûÄû Ñ®Ñ ûÄæ Ö®•®fl®ˇ99 ÅCˇ¸Ä
  11. ˇå|    ¶ÄJˇêO‡!ÄAÄ0Ä!|¶ªaˇÏO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Åbˇ¿©ã ,åA‰ÑÄbˇÙÄBˇ®Kˇ¯˝ÄA;√ û8`∞~ û8~ÄBˇ¿Kˇ¯≈ÄA û8~ÄBˇ¿Kˇ˜=ÄA û8~ ÄBˇ¿Kˇ˜)ÄAÄǡ¿Äd8ûÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø¡ˇ¯êî!ˇx;·8êA;¿ìfl<ìfl0ìfl$ìflìflĬˇ¿®Ê /A¯º8<8ü8ø8fl ÄBˇ»HÄAÅ /à@˝îÅ"ˇ¿Äiˇ¯ÄBˇ®Kˇ˜aÄA;√ û9@±^ÄBˇ‘Kˇ¸9ÄA8@ÄBˇ‘Kˇ¸)ÄAÅbˇ‘âã l,ÉAÊ û8ÄòûúC‡ û®ø@òæú û8~ÄBˇ¿Kˇ˜ÄA8ĬˇÃÄܡÿÄø<ÄflÄBˇÃHÄA8Ä‚ˇÃÄáˇÿ8øBÄBˇÃHÄA ûÅëò9 ±?@â_B/
  12.  A¯x©@/ãÄ@¸l8ÅǡÃÄåˇÿÄBˇÃHÄAÄü|É AÂH û®ø@ •Ä|fi*àˇBòÊ©@1(±?@8ÅBˇÃÄäˇÿ8øBÄBˇÃKˇıµÄAC‡ˇÑ û©@ ´Ä}ûZ8`òlÄǡ¿Äd8ûÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAÄXÄ!|¶ª¡ˇ¯O‡ |¶øÅˇêî!ˇà;·8êA;¿;†;ÄìüÄBˇ‘KˇˆEÄA88Ä ÄBˇ‘HÄA8ÄBˇ¿HÄAÄfl/A˙pÄ‚ˇ‘â/àA˛`88Ä ÄBˇºHÄA;£ ù9 }!¶9_8}*+}}*A‚|âX@0@Ê C‡ˇË|¶ T8})0}k0|âX@@ʸÅǡ∞ÄlˇÙÄBˇ®KˇˆaÄA;É8|ÄBˇ∞HÄAÉfl ûÉfi/A˙îÄ~ˇ¸Äǡ¿Ä§ˇ¯Ä√ˇÜ(@˛p8~Ä„ˇ¸Äˇú|    ¶ÄGˇ†O‡!ÄA,É@ÊL8~8úÅˇ¸Äˇ¥|    ¶ÄHˇ∏O‡!ÄA ûìæò8~8úÅ#ˇ¸Ä    ˇ¥|    ¶ÄIˇ∏O‡!ÄA ûÉfiC‡ˇl8`Äü8†8‹Å_ äÄ
  13. |    ¶ÄJO‡!ÄAÄHÄ!|¶ªÅˇO‡ |¶ø°ˇÙêî!ˇ®;·8êA;¿;†ìøÄBˇ‘KˇÙùÄA8ÄBˇ‘Kˇˆ5ÄA8ÄBˇ¿KˇÙyÄAÅ/ A˙(Åǡ‘àl/ÉA˛®ü,ÑA‰ ®ø/A˘Ĭˇ∞ÄfˇÙÄBˇ®KˇÛÂÄA;£8}ÄBˇ∞KˇÛ—ÄAÉfl ûÉfi/ûA˛òIJˇ¸Åˇ¿Å(ˇ¯ÅGˇ|äH@Êt8~Åcˇ¸Ä ˇú|    ¶ÄKˇ†O‡!ÄA/@˙P8~8ùÅɡ¸Ä ˇ¥|    ¶ÄLˇ∏O‡!ÄA û®ò~ú8~8ùÄ£ˇ¸Äˇ¥|    ¶ÄEˇ∏O‡!ÄA ûÉfiC‡ˇh8`Äü8†8›Äˇ áÄ|    ¶ÄGO‡!ÄAÄ(Ä!|¶ª°ˇÙO‡ |¶ø°ˇÙêî!ˇ∏;·8êA;√;§8} ûÄû Ñ®Ñ ûÄæ Ö®• ûÄfi Ü®Δ ûIJ á®Á99 ÅCˇ¸Ä
  14. ˇÑ|    ¶ÄJˇàO‡!ÄAÄÄ!|¶ª°ˇÙO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Åbˇ¿©ã /åA¸ÑÄbˇÏÄBˇ®KˇÚUÄA;√ û8`∞~ û8~ÄBˇ¿KˇıÒÄA û8~ÄBˇ¿KˇaÄA û8~ ÄBˇ¿KˇMÄAÄǡ¿Äd8ûÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø°ˇÙêî!ˇ∏;·8êA;√;§8} ûÄû Ñ®Ñ ûÄæ Ö®• ûÄfi Ü®Δ ûIJ á®Á99 ÅCˇ¸Ä
  15. ˇÑ|    ¶ÄJˇàO‡!ÄAÄÄ!|¶ª°ˇÙO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Åbˇ¿©ã ,åA‰ÑÄbˇÄBˇ®KˇÖÄA;√ û8`∞~ û8~ÄBˇ¿Kˇ9ÄA û8~ÄBˇ¿KˇÔ    ÄA û8~ ÄBˇ¿KˇÓıÄAÄǡ¿Äd8ûÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ ø¡ˇ¯î!ˇ¿;·8;√/@¯8`ˇˇC‡C‡ 8`C‡‡Ä!ª¡ˇ¯O‡ |¶æ¡ˇÿ9Åˇ∏Hêî!ˇp;·@êA;√;§;Ö;fˇ‡ê;H;);
  16. ¸ ¯êÄBˇƒHÄAoÄê¬ˇ§»¬ˇ†»‚ˇò˝8(¡"ˇåÌAJ:˝`éˇ¿Lˇ‡L…Çˇê˝¨P*Ÿ¢¸]éÄ‚êˇˇ¸8|Kˇˇ1ġˇ¸}÷}(±:¸ ¯êÄBˇƒHÄAo
  17. ÄëBˇ§»ˇ†»Bˇò¸`(¿ÇˇàÏ° ˙¸¿éˇ¿Lˇ‡L»‚ˇê˝(*Ÿ¸5éÅb롸8|Kˇ˛…Åˇ¸}ã÷|lË∞yÄXÄ!9Åˇ∏H|¶∫¡ˇÿO‡ |¶æ·ˇ‹9Åˇ¿Hêî!ˇh;·HêA;√;§;Ö;f;G;(ˇ‡ê/ô(@¸; (ÿ~¸–,òAÊDn‰Äêǡ§…"ˇ†…Bˇò˝iP(oÄê¢ˇ§…ǡ†…¢ˇò¸ h(Ï+$ÄBˇƒHÄAˇ¿êC‡(8wKˇ˝˝lfÄê¬ˇ§»"ˇ†»Bˇò¸a(¿ÇˇÑÔ√28{8ö8∏8◊¿¢ˇÄÏfl($Ï>0(9 9?9YKˇ˝Ò8{8ö8∏8◊¿‚ˇ|Ì8$Ï>@*99?9YKˇ˝≈8~®ü ®ø8€8˙©©?©_©±a89ıÅ<9`±a@9ıÅDÅcˇ¸Ä ˇd|    ¶ÄKˇhO‡!ÄAÄXÄ!9Åˇ¿H|¶∫·ˇ‹O‡ |¶ø·ˇ¸9ÅˇËHêî!ˇ∏;·8êAˇ‡ê¡"ˇxÌ_H*˝`éˇ¿Lˇ‡L…Çˇê˝¨P*Ÿ¢¸]é®bC‡‡ÄÄ!9ÅˇËH|¶ª·ˇ¸O‡ |¶æ·ˇ‹9Åˇ®Hêî!ˇH;·HêA;√;§ ûÉû ú´ú ûÉ~ õ´{ ûÉ^ ö´Z ûÉ> ô´9}ú–mÉÄêbˇ§»ˇ†»"ˇòˇ‡(|õ»lÖÄê¢ˇ§»Bˇ†»bˇòˇ¬(Ïû≤Ï?'˙ÄBˇƒKˇ˘µÄAˇ†ê¿¢ˇtˇ(A˙î û®fiÊ,lËÄ롧»¬ˇ†»‚ˇò˝8(¡"ˇpÌIrÔàP$ û©>/â@˛|8} ûÄû Ñ®Ñ ûÄæ Ö®• ûÄfi Ü®Δ ûIJ á®Á û©^j,}hp¿"ˇlKˇ¸πÏ?2Kˇ˛9C–Ï>2Kˇ˛-#»C‡î û©û,å@ÊÑ8} ûÄû Ñ®Ñ ûÄæ Ö®• ûÄfi Ü®Δ ûIJ á®Á û©(,9@}    R◊@‡1ˇˇ¿"ˇhKˇ¸%Ï?2Kˇ˝•C–Ï>2Kˇ˝ô#» û©~/ @˙x8} ûÄû Ñ®Ñ ûÄæ Ö®• ûÄfi Ü®Δ ûIJ á®Á û©û ,}p¿"ˇdKˇ˚°Ï?2Kˇ˝!úÏ>2Kˇ˝{ û ù©>©]âPA˝<8}8ú8ª8⁄8˘99 Åcˇ¸Ä ˇÑ|    ¶ÄKˇàO‡!ÄAC‡||ú–@ʧ»@˘P8} û©û}Ñp|ч8π û®fi|˘ÿ99 9@Åcˇ¸Ä ˇ\|    ¶ÄKˇ`O‡!ÄAC‡L8} û©û}Ñp|ч8ª û®fi|˚»99 9@Åcˇ¸Ä ˇ\|    ¶ÄKˇ`O‡!ÄAC‡‘õ»@˛§|ú–@ÂP8}8ö û©û}Öp|•»|⁄‡ û®˛99 9@Åcˇ¸Ä ˇ\|    ¶ÄKˇ`O‡!ÄAC‡L8}8ú û©û}Öp|•ÿ|‹– û®˛99 9@Åcˇ¸Ä ˇ\|    ¶ÄKˇ`O‡!ÄAC‡, û©ûmÉÄêbˇ§…bˇ†…ǡò˝´`(¿ˇ`Ï rÔm$Ï?ÚKˇ˚A;Ï>ÚKˇ˚5:„ ù®ùÑ|º"◊@‡0•ˇˇ ù®›Ö1÷ ù®˝á}:◊@‡1ˇˇ ù©=hI÷ ù©]ä}zR◊@‡1kˇˇ ù©ùKa÷ ù®}É|ô◊@‡0Ñˇˇ ù®Ω$)÷8}|ó‡|ª¬|‹∫|¯ÿ}–}9¬}Z∫}x»±a89ıÅ<9`±a@9ıÅDÅcˇ¸Ä ˇd|    ¶ÄKˇhO‡!ÄAÄxÄ!9Åˇ®H|¶∫·ˇ‹O‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ù û®æÄBˇ¥Kˇ˝1ÄA8|8ù û®æÄBˇ¥KˇÂ°ÄA8|8ù û®æÄBˇ¥KˇÂÖÄA8~8ú8ΩÅǡ¨ÄÃˇÙġ§|    ¶ÄFˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∞;·8êA;√;Ñ;•8|8ù8øÄBˇ¥Kˇ¸πÄA ûġ∞˛8|8ù8øÄBˇ¥Kˇ‰ÒÄA ûű8|8ù8øÄBˇ¥Kˇ‰ÕÄA ûÅ?±>8~8ú8ΩÅBˇ¨ÅjˇÙÄ ˇ¨|    ¶ÄKˇ∞O‡!ÄAÄ Ä!|¶ªÅˇO‡ |¶ø¡ˇ¯êî!ˇ∞;·8êA;¿Åǡ¿®l /A¯‡Äbˇ¸ÄBˇ®KˇÔ-ÄA;√ û8Ä∞ûÄBˇ‘KˇÚΩÄA8ÄBˇ‘KˇÚ≠ÄA8ÄBˇ‘Kˇ„˘ÄA8ÄBˇ‘Kˇ„ÈÄAÄ¢ˇ‘à≈/ÜA˛t û®ˇ∞˛ û©± û©?±> û8~ÄBˇ¿KˇÓ·ÄA û8~ÄBˇ¿Kˇ„ëÄAÅBˇ¿Äj8ûÅcˇ¸Ä ˇî|    ¶ÄKˇòO‡!ÄAÄ Ä!|¶ª¡ˇ¯O‡ |¶ø°ˇÙêî!ˇ†;·8êA;¿;†ìøÄBˇ‘Kˇ‰    ÄA8ÄBˇ‘Kˇ„ŸÄA8
  18. ÄBˇ‘Kˇ„ÄA8 ÄBˇ‘Kˇ‚ıÄA8ÄBˇ¿KˇÚùÄAÅü,åAÊ$Äbˇ‘àÉ/A˙Ä¢ˇ∞ÄeˇÙÄBˇ®Kˇ‰%ÄA;£8}ÄBˇ∞KˇÚAÄAÉfl ûÉfi/ûA˛¨Äfiˇ¸Ä‚ˇ¸Åˇ|à8@Êå8~Å#ˇ¸Ä    ˇú|    ¶ÄIˇ†O‡!ÄA/@˙h8~8ùÅCˇ¸Ä
  19. ˇ¥|    ¶ÄJˇ∏O‡!ÄA û©±~ û©ü
  20. ±û û® ∞~8~8ùÄ£ˇ¸Äˇ¥|    ¶ÄEˇ∏O‡!ÄA ûÉfiC‡ˇT8`Äü8†8›Äˇ áÄ|    ¶ÄGO‡!ÄAÄ0Ä!|¶ª°ˇÙO‡ |¶øAˇËêî!ˇê;·HêA;√;§;Ä;`;@ ûÉû ûÉ~ ûÉ^ 8} ú®ú ú®º õ®€ õ®˚ ö© ö©: ö©Z ö©z±a89ıÅ< û©~±a@9ıÅDÅcˇ¸Ä ˇd|    ¶ÄKˇhO‡!ÄAÄ0Ä!|¶ªAˇËO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ù û®æÄBˇ¥KˇÂiÄA8~8ú8ΩÅǡ¨ÄÃˇÙġ§|    ¶ÄFˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∞;·8êA;√;Ñ;•8|8ù8øÄBˇ¥Kˇ‰©ÄA ûġ∞˛8~8ú8ΩÅˇ¨Å(ˇÙÄ    ˇ¨|    ¶ÄIˇ∞O‡!ÄAÄ Ä!|¶ªÅˇO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿ÄBˇ‘Kˇ„ÄA8ÄBˇ‘Kˇ‚ÂÄAÅBˇ‘âj/ãA˛†Åǡ¿®l ,ÉA‰êÄbˇÿÄBˇ®Kˇ‚•ÄA;√ û8Ä∞û û®ø∞æ û8~ÄBˇ¿Kˇ„}ÄA û8~ÄBˇ¿Kˇfl)ÄA û8~ ÄBˇ¿KˇflÄAĬˇ¿Äf8ûÄ„ˇ¸Äˇî|    ¶ÄGˇòO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄÄ!|¶ª·ˇ¸O‡ â ˇ¸ˇÙAttrDesc ˇ¯ˇÙCircleDesc ˇÙˇÙEllipseDesc ˇˇÙH90ShapeDesc     ˇÏˇÙHShapeDesc
  21.  ˇËˇÙLineDesc  ˇ‰ˇÙRectangleDesc †ˇ‡ˇ¯StringDesc òˇ‹ˇÙTextureDesc ˇÿˇÙTriangleDesc ä$&(*UX]xz|~ÉÖáâò±‘ (*,.0246UX]xz{}ÅÉÑÜû†¢§ƒ«ÃÁÈÍÏÚÛı
  22. +.38kz~Åï©´∫ºÒ*4<séô°µ∑πªΩø¡√‚ÂÍÔ 
  23. 8;@Ec(:<>@BDFH_joqsuwy{}åëìïóôõùü°∞µ∑πªΩø¡√≈—“ÍÔ˝(-9IKORTX[]adfjïú£Δœÿ˙_y|äí®™¨Ø±≥µ∑πªΩ¬›-038=ã¯8MinMax‰{max„{min·{x‚{y¯≈8Rectangle.Draw
  24. ‚{F
  25. ·{Rmaxxmaxyminxminy¯8NewRectangle
  26. ·{o¯¶8Texture.Draw
  27. ‚{F
  28. ·{Tmaxxmaxyminxminy¯≈8Texture.Write
  29. ·{T¯Ê8Texture.Read
  30. ·{Ti¯ü8NewTexturei
  31. ·{o¯≈8Line.Draw
  32. ‚{F
  33. ·{L¯8NewLine
  34. ·{o¯¥(8Circle.Draw
  35. ·{C
  36. ‚{F„{a‰{bÂ{r¯fl8NewCircle
  37. ·{o¯õ(8Ellipse.Draw
  38. ·{E
  39. ‚{Fabtemp„{tmpx‰{tmpy¯À8NewEllipse
  40. ·{o¯Œ–8NewString
  41. <Tbeg¬chend¿i
  42. ·{o time¯«¿8ChangeFont
  43. „{F
  44. G
  45. ·{c
  46. ‚{fntfntname¯¨ 8ChangeAlign
  47. ‚{F
  48. Galign
  49. ·{c¯“8HShape.Draw
  50. ‚{F
  51. ·{self¯Ç8NewHShape
  52. ·{h¯®8H90Shape.Draw
  53. ‚{F
  54. ·{self¯ÿ8NewH90Shape
  55. ·{h¯Á8Sign·{x¯≤    –¿GetPoint2Á{ArrLenÂ{aXÊ{aY†{angle°{cos„{dx‰{dyË{hÈ{s¢{t·{x‚{y¯î
  56. –»DrawArrow†{ArrAngleÊ{ArrLen
  57. ·{F°{angle ax1ax2ay1ay2Á{dxË{dy‚{x1‰{x2„{y1Â{y2¯∞
  58. 8Round†{x¯ä
  59. »AttrLine.Draw
  60. ·{A
  61. ‚{F†{aÁ{ar°{bË{br¢{h£{v1§{v2„{x1Â{x2‰{y1Ê{y2¯∑
  62. 8AttrLine.Write
  63. ·{A¯Í
  64. 8AttrLine.Read
  65. ·{Ai¯±8NewAttrLine
  66. ·{aa1a2w¯ù(8ChangeAttrLine
  67. ‚{F
  68. G
  69. a1 a2
  70. ·{cw¯“(»Triangle.Draw
  71. ‚{F
  72. ·{T
  73. „{p0
  74. ‰{p1
  75. Â{p2¯Ò8Triangle.Write
  76. ·{T¯í8Triangle.Read
  77. ·{Ti¯–8NewTriangle
  78. ·{opat¯€8$$